home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
basic
/
pbasmlib.zip
/
PBADEMO6.BAS
< prev
next >
Wrap
BASIC Source File
|
1994-02-12
|
525b
|
25 lines
$string 32
$link "pbasmlib.pbl"
$include "pbasmlib.inc"
'PBASMLIB Sound Module Demo #6 - Repeater
'Uses foreground sampling and playback.
cls:print
print "PBASMLIB Repeater (Talking Parrot Clone)"
print
input "Trigger Level (129-200), try 132: ";tl%
sz%=9000 'Sample length
sbreset
print:print "Talk into the microphone... any key to end."
do
a%=sbsamplebyte
if a%>=tl% then
s$=sbsample$(sz%,35)
sbplaystring s$,int(50*rnd(1))+1
end if
if inkey$<>"" then end
loop